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This file is called SMSEMANTICS,.DC and contains a semantic description of 
SMALLTALK written in itself 

This version was last changed on June 10, 1973. 

Use font SMDELEG.FD 


SMALLTALK and its Semantics 
by 
Alan Kay 


WARNING! ! This is an unchecked version done simply to try it out 
for basic taste and compactness, 


¿To € classi,.lo e € ‘name acti 
i * Find (nane) "in CALLER + classi,Do + activity 


To 4 i,.name exp. 
i ind (name) in CALLER e exp. 


isin a Pteontext 
i context e CALLER 


To Find i:name 


Repeat 
i context. table name OR context, table,global empty? 
of os exp. context, table name e exp. Done 
| context. e context, table.global 


it context,table name 


To List i.e « i:first rest. Tself 


| first os I» a irfiTst. fself 
i it first 


i rest o fof a firest. Tself 
i il rest 


firsteNIL . i8 


slength = 
lerest length 


{print s ILU” 8 first print $" "5 rest print 90" 


alist? ^ itself 


seval a [Repeat 
j Po ifirst = ")" a iDone 
ifirst s UP a i,value e rest, eval 


Po P.value + first,eval 
i] value 


To Repeat ia cbrogram. 
ODEFOR iRepeat | clause seval global message self 


een wee ae 


To 


To 


To 


To 


To 


To 


To 


To 


To 


Again {i} EMPTY CALLER,CALLER 


Done itvalue. fi value CALLER,CALLER,CALLER 


If exp e i,then :exp i,else a jy. Texp 
i itexp 
ierror “I can't find a "then"" 
then s» i,else « itexp. Texp 
I TEMPTY 


User iRepeat 
Po iDisplay Read,eval,print 


.iself.table,name e message,table,pc,.first. 
imessage,table,pc e message,table,PC,rest. 
imessage,table name e message,table. message, table,PC,first. 
imessage,table.message,table,PC e message.table,message,table,PC,.rest, 
it name. 


Poi.name. 
ilmessage,table,name + 
i message,table,message,table,PC,first seval message message 


i.token = message, table,PC,first = |! EMPTY 
imessage,table,PC «+ message,table,PC,rest 
s itclause. 9» clause CALLER CALLER CALLER 


EMPTY | + self CALLER,CALLER 
a if TRUE 


Apply i it tg tc im 
i (t e .global g «caller c message m ) ,eval 


T itvalue :destination, 
‘Apply value destination destination destination. 


Remember ise . iRepeat 
i i | ,EMPTY n itself 
i iself :name e :value 
i.copy « i! CODEFOR "somehow copy the table” 


| eval 4 i"Do something or other" 


iname iat a irvalue. 
i : !CODEFOR "associate name and value somehow" 
itvalue 


it CODEFOR "Get the value associated with the name" 
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bindings. 
instantiate | Remember e ,class ¿class 
j ¿giobal global 
¿caller self 


To class 


message message 
i PC bindings 
eval 


To instantiate i:classdef. 


classdef,copy e class classdef 
4global global 
caller caller 
smessage message 
+PC classdef,DO 


i eval 


To Word 
bae s itfirst :rest. 
‘ rest e Word + firstsbutfirst rest. 
first e first.first. 


Zi self 


i first e fot» Ptfirst,character . iTfirst 
] i ierror"input is not a character" 
it first 


» itrest.character . itrest 
iBrror"Input is not a word" 


if rest 


length 4 i! rest = NULL = 1 
i | f+ rest,length 


print 2 i? first,print. rest print 

: word? a i! self 

NT 4 irvalue. f (first = value,first) AND next = value,next 
env — global. 

epeat 

nv,empty? .. | TEMPTY 


temp + env.table self 2 it apply temp global caller 
I message 


env e global,table,global 


